Public Class AnimateEvent

    Private _pbAnimateProgressBar As ProgressBar
    Private _bolHandled As Boolean
    Private _strMessage As String = String.Empty

    Public Property AnimateProgressBar() As ProgressBar
        Get
            Return _pbAnimateProgressBar
        End Get
        Set(ByVal Value As ProgressBar)
            _pbAnimateProgressBar = Value
        End Set
    End Property

    Public Property Handled() As Boolean
        Get
            Return _bolHandled
        End Get
        Set(ByVal Value As Boolean)
            _bolHandled = Value
        End Set
    End Property

    Public Property Message() As String
        Get
            Return _strMessage
        End Get
        Set(ByVal Value As String)
            _strMessage = Value
        End Set
    End Property

    Public Sub New(ByVal pbAnimateProgressBar As ProgressBar, ByVal bolHandled As Boolean, ByVal strMessage As String)

        _pbAnimateProgressBar = pbAnimateProgressBar
        _bolHandled = bolHandled
        _strMessage = strMessage

    End Sub

End Class
